% 提示用户输入Excel文件名
% excelFileName = input('请输入Excel文件名（例如：your_file.xlsx）：', 's');
excelFileName = "红外汇总.xlsx";

% 读取Excel文件数据
% readtable 函数可以方便地读取表格数据，并自动处理不同类型的数据
T = readtable(excelFileName);

% 将表格转换为数组，以便进行列操作
numbericLabels = double(categorical(T.Var1));% 将分类数据转换为数值
T.Var1 = numbericLabels;                     % 将数值数据替换原来的分类数据
dataArray = table2array(T);

% 提取第一列作为label
% 确保label是1xn的行向量，如果原始数据是列向量，需要转置
label = dataArray(:, 1);
if iscolumn(label)
    label = label'; % 转置为行向量
end

% 提取除第一列以外的数据作为data
data = dataArray(:, 2:end);

r = SVMRFE(label, data);
    